/*!	 valuedescbonelink.cpp
**	 Template File
**
**	......... ... 2013 Ivan Mahonin
**	......... ... 2014 Jerome Blanchi
**
**	This package is free software; you can redistribute it and/or
**	modify it under the terms of the GNU General Public License as
**	published by the Free Software Foundation; either version 2 of
**	the License, or (at your option) any later version.
**
**	This package is distributed in the hope that it will be useful,
**	but WITHOUT ANY WARRANTY; without even the implied warranty of
**	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
**	General Public License for more details.
**
*/

#ifdef USING_PCH
#	include "pch.h"
#else
#ifdef HAVE_CONFIG_H
#	include <config.h>
#endif

#include <synfig/general.h>

#include "layerparamconnect.h"
#include "valuenodelinkconnect.h"
#include "valuenodereplace.h"
#include "valuedescbonelink.h"

#include <synfigapp/canvasinterface.h>
#include <synfig/valuenodes/valuenode_const.h>
#include <synfig/valuenodes/valuenode_composite.h>
#include <synfig/valuenodes/valuenode_bone.h>
#include <synfig/valuenodes/valuenode_bonelink.h>
#include <synfig/valuetransformation.h>

#include <synfigapp/localization.h>

#endif

using namespace std;
using namespace etl;
using namespace synfig;
using namespace synfigapp;
using namespace Action;

ACTION_INIT(Action::ValueDescBoneLink);
ACTION_SET_NAME(Action::ValueDescBoneLink, "ValueDescBoneLink");
ACTION_SET_LOCAL_NAME(Action::ValueDescBoneLink, N_("Link to Bone"));
ACTION_SET_TASK(Action::ValueDescBoneLink, "bone_link");
ACTION_SET_CATEGORY(Action::ValueDescBoneLink, Action::CATEGORY_VALUEDESC);
ACTION_SET_PRIORITY(Action::ValueDescBoneLink, 0);
ACTION_SET_VERSION(Action::ValueDescBoneLink, "0.0");
ACTION_SET_CVS_ID(Action::ValueDescBoneLink, "$Id$");

Action::ValueDescBoneLink::ValueDescBoneLink():
    time(0)
{
}

Action::ParamVocab
Action::ValueDescBoneLink::get_param_vocab()
{
    ParamVocab ret(Action::CanvasSpecific::get_param_vocab());

    ret.push_back(ParamDesc("selected_value_desc", Param::TYPE_VALUEDESC)
                  .set_local_name(_("ValueDesc to link"))
                  .set_supports_multiple()
                 );
    ret.push_back(ParamDesc("value_desc", Param::TYPE_VALUEDESC)
                  .set_local_name(_("ValueDesc on Bone to link to"))
                 );
    ret.push_back(ParamDesc("time", Param::TYPE_TIME)
                  .set_local_name(_("Time"))
                  .set_optional()
                 );

    return ret;
}

bool
Action::ValueDescBoneLink::is_candidate(const ParamList &x)
{
    ParamList::const_iterator iter;

    ValueDesc value_desc(x.find("value_desc")->second.get_value_desc());

    bool selected_value_desc_is_bone = false;
    pair<ParamList::const_iterator, ParamList::const_iterator> selected_vd_range = x.equal_range("selected_value_desc");

    // get the range of selected value desc to check if at least one is a bone
    for (iter = selected_vd_range.first; iter != selected_vd_range.second ; ++iter) {
        ValueDesc selected_value_desc(iter->second.get_value_desc());

        // Simple test of bone type
        // TODO : if bone, reject only if same skeleton
        if ((selected_value_desc.parent_is_value_node()) &&
                (ValueNode_Bone::Handle::cast_dynamic(selected_value_desc.get_parent_value_node()))
           ) {
            selected_value_desc_is_bone = true;
            break;
        }
    }

    if (!candidate_check(get_param_vocab(), x)) {
        return false;
    }

    return value_desc.parent_is_value_node()
           && ValueNode_Bone::Handle::cast_dynamic(value_desc.get_parent_value_node())
           && !selected_value_desc_is_bone;
}

bool
Action::ValueDescBoneLink::set_param(const synfig::String& name, const Action::Param &param)
{
    if (name == "value_desc" && param.get_type() == Param::TYPE_VALUEDESC
            && param.get_value_desc().parent_is_value_node()
            && ValueNode_Bone::Handle::cast_dynamic(param.get_value_desc().get_parent_value_node())) {
        value_desc = param.get_value_desc();
        return true;
    }

    if (name == "selected_value_desc" && param.get_type() == Param::TYPE_VALUEDESC) {
        value_desc_list.push_back(param.get_value_desc());
        return true;
    }

    if (name == "time" && param.get_type() == Param::TYPE_TIME) {
        time = param.get_time();
        return true;
    }

    return Action::CanvasSpecific::set_param(name, param);
}

bool
Action::ValueDescBoneLink::is_ready()const
{
    if (value_desc_list.empty()) {
        return false;
    }

    if (!value_desc) {
        return false;
    }

    return Action::CanvasSpecific::is_ready();
}

void
Action::ValueDescBoneLink::prepare()
{
    if (value_desc_list.empty()) {
        throw Error(Error::TYPE_NOTREADY);
    }

    clear();
    ValueNode_Bone::Handle bone_value_node;

    if (value_desc.parent_is_value_node()) {
        bone_value_node = ValueNode_Bone::Handle::cast_dynamic(value_desc.get_parent_value_node());
    }

    if (!bone_value_node) {
        throw Error(Error::TYPE_NOTREADY);
    }

    for (std::list<ValueDesc>::iterator iter = value_desc_list.begin(); iter != value_desc_list.end(); ++iter) {
        ValueDesc& value_desc(*iter);

        if (!ValueNode_BoneLink::check_type(value_desc.get_value_type())) {
            continue;
        }

        if (value_desc.parent_is_value_node() && bone_value_node == value_desc.get_parent_value_node()) {
            continue;
        }



        // create new BoneLink
        ValueNode_BoneLink::Handle bone_link_node = ValueNode_BoneLink::create(value_desc.get_value_type());
        bone_link_node->set_link("bone", ValueNode_Const::create(ValueBase(bone_value_node)));
        bone_link_node->set_link("base_value",
                                 ValueNode_Composite::create(
                                     ValueTransformation::back_transform(
                                         bone_link_node->get_bone_transformation(time),
                                         value_desc.get_value(time))));

        // exported ValueNode
        if (value_desc.parent_is_canvas()) {
            Action::Handle action = ValueNodeReplace::create();
            action->set_param("canvas", get_canvas());
            action->set_param("canvas_interface", get_canvas_interface());
            action->set_param("src", ValueNode::Handle(bone_link_node));
            action->set_param("dest", value_desc.get_value_node());

            assert(action->is_ready());

            if (!action->is_ready()) {
                throw Error(Error::TYPE_NOTREADY);
            }

            add_action_front(action);
        } else if (value_desc.parent_is_layer()) {
            Action::Handle action = LayerParamConnect::create();
            action->set_param("layer", value_desc.get_layer());
            action->set_param("param", value_desc.get_param_name());
            action->set_param("canvas", get_canvas());
            action->set_param("canvas_interface", get_canvas_interface());
            action->set_param("value_node", ValueNode::Handle(bone_link_node));

            assert(action->is_ready());

            if (!action->is_ready()) {
                throw Error(Error::TYPE_NOTREADY);
            }

            add_action_front(action);
        } else if (value_desc.parent_is_value_node()) {
            Action::Handle action = ValueNodeLinkConnect::create();
            action->set_param("canvas", get_canvas());
            action->set_param("canvas_interface", get_canvas_interface());
            action->set_param("parent_value_node", value_desc.get_parent_value_node());
            action->set_param("index", value_desc.get_index());
            action->set_param("value_node", ValueNode::Handle(bone_link_node));

            assert(action->is_ready());

            if (!action->is_ready()) {
                throw Error(Error::TYPE_NOTREADY);
            }

            add_action_front(action);
        }
    }
}